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ABS TRACT 


The push button telephone has been employed in many systems as a computer 
terminal with a very restricted capability and in at least one instance as a com- 
puter terminal for a general purpose programming Janguage. This thesis discusses 
the input, output, coding, and decoding problems wien considering a general 
purpose programming language for use with a push button telephone, Included is 
a general discussion of a system that would use a syntactic analysis and tne context 
of a programming language to produce a code for use witn a push button telephone, 
The output from this analysis would be used to build a table-driven translator to 


decode the language. An example of such a system is also included, 
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I, INTRODUCTION 


The computer terminal of recent years has been some form of the common 
teletypwriter, This sort of device is economically practical where it serves a 
large number of users, but for the individual its cost precludes widespread use. 

The cost of such devices may be reduced significantly in the future, but it is hard 
to visualize a terminal that will be economicelly acceptable to the general user, 
The expense of such a device will prevent private use for all but a select few, An 
obvious answer for the general computer user is to employ the telephone ina 
secondary role as a computer terminal, 

Access to the computer through the telephone will surely not appeal to all 
users, The obvious use would be in providing "desk calculator" type services. 

The company or university with an existing computer facility could provide such 
services ata nominal additional cost, Computer services could be sold to the 
general public ona timed basis just as long distance telephone service is sold, 
Martin [ Ref. 1] predicts that this public use of the computer will have a profound 
effect on the computer industry. 

The traditional telephone with a circular dial does not lend itself to use as an 
input device, The additional time and inconvenience required to dial a nine as 
compared to a one, would disgruntle the most patient user, The telephone com- 
panies of this nation have provided a device far superior in speed and acceptability. 


The "push button" or "Touch-Tone" telephone is being introduced to more areas 





each year [ Ref, 2 7. These push button telephones significantly enhance the 
acceptability of the telephone as a computer terminal. 

The telephone has already been used as a computer terminal on many remote 
access computing systems © Ref, 3J . Information retrieval systems that provide 
such services as stock market quotations and inventory availability have appeared 
in recent years, Experiments have also been conducted with systems that offer a 
simple computing capability similiar to that of a "desk calculator" [Ref. 413. 
These systems in general require a limited input and response capability and have 
a well defined input and output format. The coding and decoding of a general 
purpose programming language for input via a push button telephone presents a 


more formidable problem, This research was directed at problems of this nature, 
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The realization of a natural language processor will some day make the tele~ 
phone a very attractive input device, If the computer could "understand" spoken 
text, then the primary input capability of the telephone would make it desirable 
as a computer terminal, Communication, however, is limited by the intelligence 
of the least participant, and so, until the computer can converse reasonably well, 
the secondary input capability of the telephone will provide the only possible 
alternative. The problem of input then becomes one of coding a set of approxi- 
mately fifty characters into a code alphabet of twelve characters, The fifty 
characters allow for the twenty-six letters of the alphabet, ten digits and sixteen 
special characters, such as;, *, -, etc. 


The push button telephone offered by the common carriers in the United States 


is a twelve buiton device, The general appearance of a push button keyboard is 
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given in Figure |. The original push button telephones were ten button devices, 
but were designed on a four by three array with positions four-one and four-three 
blank. The two additional buttons have been added to the keyboard as a "no cost 
option" { Ref, 4 7. - These two additional buttons greatly simplify the input coding 
schemes. 

The alphabetic synonyms assigned to each push button of the telephone add 
nothing to the information transmission of each key, but then do serve a useful 
purpose. Originally ihese letters served to aid in remembering a central office 
code, making the memorization of telephone numbers easier, They could serve 
the same purpose when considering a programming language code, The user would 
not be required to remember that code "77468" represented the word "PRINT". 
ine worativa location of the letters on the keys could also assist in the coding 
scheme of a full alphabetic input, For example, the code "12" could represent 
the first letter on the second key, The letters "Q'" and "Z" were omitted from the 
telephone dial originally because there were no central office names that began 
with these letters, They would obviously be required for some programming 
languages. For purposes of this study, they were considered to be added to key 
"©", This leaves the two keys "*" and "*" for special functions alone, and this 
appears to be their best logical use, 

The code word lengths are an important part of any coding scheme. Consider- 
ing an information source of approximately fifty characters and a code alphabet 
of twelve characters, code word lengths equal to or greater than two will satisfy 


the conditions of the Kraft inequality (Kraft 1949) {Ref, 5 J. Therefore there 
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exists a unique coding scheme, using two code characters per source aneracien. 
The use of the context of a programming language will however allow a signi- 
ficant reduction in the average length of a code word, and this reduction should 
be a primary objective. 

Physically, the input would be accepted by an audio response unit at the 
computer facility, which would relay the digital information to the central pro- 
cessorl Ref, 6 7, The actual processing would then be handled by an incremental 


compiler or translator that would respond to special codes from the user, (See 


Figure 2) 


Be OUTPUT 

The audio response equipment mentioned above is also capable of generating 
verbal messages, The audic cutput section operates trom a prerecorded vocab- 
ulary, which may be changed or expanded to a limited degree, A coded message 
from the computer causes the proper selection of words from the vocabulary, ana 
the response unit sends the verbal output to the conventional telephone receiver. 
The telephone can thus provide a limited output capability at no additional cost 
to the individual user. 

Output should also be handled through the normal installation facilities, The 
user would select this type of output and his job would be placed in the normal 
job stream, To take the best advantage of the system, the initial translation 
should still be on a line-by-line basis with audio response, This wouid allow 


error detection and correction before placing the job in the normal job stream. 
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It can be shown that many such schemes exist, 
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Cornell University has implemented a remote access computing system that 
employs push button telephones as terminals [ Ref. 41. The system is based on 
CUPL, which is a butch processing system used for introductory instruction at the 
university. To transfer the system to another location would require the introduc- 
tion of the programming language CUPL or the adaptation of the concepts of the 
system to a new language, This would be time consuming and costly. Instead of 
such an adaptation, it was felt that a generalized system could be designed that 
would automatically build a decoder for a push button telephone system, Figure 2 
is a flow chart showing where such a system would fit into a computer processing 


network, The main objective of this research project was to design and test such 


a system [ 


In design of the system, it was decided that as large a class of languages as 
possible should be acceptable for analysis, This diciated that generality must be 
preserved wherever possible, The system was also to produce an average code 
word length as small as possible in order to minimize the button pushing required 
of the user, Context was to be used in pursuing this objective, and a two-key 


code for each input character was to be considered only as a last resort. 
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If], GENERAL DISCUSSION 


The description of the computing system given in Figure 2 includes the push 
button telephone translating system at a level above the programming language 
it is processing. The output from the language analysis is corrected prior to 
considering the problems of the push button telephone coding scheme and is used 
in building the compiler (or translator) for the language. At this level, the output 
from the push button telephone translator is the source statement of the program- 
ming language in question, This output must be channeled to the language compiler 
for final processing, It appears that the two analysis steps could be combined to 
perform an analysis directed at the language problems and the push button tele- 
phone coding problems simultaneously, This would lead to a combined translator- 
compiler and would produce a more efficient total system, 

There is also a possibility of additional use of the language analysis to improve 
on the push button coding scheme. The decoding of a statement such as "GO TO" 
might automatically indicate that a line number must be the next input, The 
system could then go directly into a number decoding scheme without a special 
number indicator, This sort of refinement would depend heavily upon the parti- 
cular programming language. 

The problems of the push button telephone coding scheme are of prime concern 
when considering a programming language specification procedure, A major 
problem area of a push button telephone coding scheme lies in the ambiguous 


transmission associated with each digital input, To maintain an average code 
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word length as small as possible, a method to determine that a "2" is not an "A" 
or "B" or "C" is necessary, The context of the programming language provides 
such a method, Also the context of a particular character ina terminal part of 
a language must be considered for the push button telephone coding scheme, To 
illustrate, a particular coding scheme could produce the code "367" for the word 
"FOR" and code "363" for the word "END", The "36" taken in context with the 
"7" or "3" would provide the necessary information for proper decoding. 

The method used to specify a particular programming language obviously plays 
an important part in all the analysis procedures for the language. A syntactic 
description of a language provides a good method to examine the context of the 
language and also to determine the terminal parts of the language, Syntax exam- 
ination tharafara provides a anand mathad far nush button telephone codina 
analysis, Although no exhaustive study was performed, it appears that the 
attempt to make this sort of analysis using any other type of language specification 
would prove exceedingly difficult. 

Coding of character strings (comments, headings, print strings, etc.) fora 
push button telephone system requires a special coding system within the program 
language coding system, This system must allow for the coding of the full alpha- 
bet, as well as special characters and numbers, The numbers and special charac~ 
ters can be decoded normally, but the alphabetical characters must be recognized 
individually since no contextual information would be available, A likely method 
for this operation is to transfer control to a special decoding section for character 
string decoding. The transfer would be caused by recognition of a special 


character, and the special decoding scheme would be specified by the user. 
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There are many of these special decoding schemes, but those that use the tele- 
phone key board to aid in remembering the code would appear to be the preferred 
systems . 

Inherent to the push button telephone coding scheme are certain special codes 
which the user must define and input to the analyzer. These are parts of the 
coding scheme that are considered necessary to any system and must receive 
special consideration in the analysis and the translation phases, An example 
would be the "space designation", which is usually a part of any programming 
language. Since the "space bar" would not be available on a push button tele- 
phone, a special code must represent the space in the programming language. 
This is in line with the overall concept, as the transmission of a space over the 
empliched by come cenuence of characters, Adelitional 
features such as an end-of-line designation or re-start capability would also be 
required and could also be defined as special paris of the coding scheme, 

The variable introduces a unique coding problem, A full alphabetic coding 
scheme could be used to allow complete generality of variable coding, Where 
this flexibility in variables is not required, a restricted system is much more 
efficient. A variable designation parameter would provide such a system, One 
designation would be used to denote all variables, and the variables would be 
distinguished by their assigned number, An obvious choice for the variable 
designation parameter would be the letter nyt This would allow the assignment 
of variables in the sequence V1, V2, V3....Vn, where n is restricted only by 


the computer the translator will run on, 
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The input scanning operation of a working translator could operate character- 
by-character or be keyed to some other character set determination, The char- 
acter-by-character scanning would require that all prefixes be eliminated from 
the programming language. This would be necessary to insure that a word such 
as "GO" (code "46") would not be decoded from the word "INT" (code "468"), 
This restriction could prove quite severe in some languages, The proper use of 
the characters "*" and "#" eliminates this problem, These characters can be 
used in the programming language to break the input number codes into subsets 
for decoding while serving as code characters for parts of the programming 
language, This approach appears to be the most fruitful , 

Response for the pushbutton telephone system could be handled through dif- 
ferent oaths (Fig, 2) denending inan the resnonse reauired. The loon from the 
telephone through the translator to the incremental compiler, and back, would 
provide the "desk calculator" service mentioned earlier, Line-by-line execution 
and even short program execution would be handled by this loop, Response for 
error detection could be between the telephone and the translator for errors in 
the push button telephone coding, An error in the programming language might 
not be detectable by the push button telephone translator, The incremental 
compiler would detect the error and initiate the error message. For a longer 
program with delayed output, a direct translation, store and input to job stream 
could be provided, but would not take full advantage of the system, The incre- 
mental compiler in the sequence would provide immediate error correction on a 
large percentage of the program errors, In this respect, the push button telephone 


system could increase the efficiency of the total computing facility. 
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Hi, TELE-CODER 


The Tele-Coder is a system which analyses a programming language for accept- 
ability of input through a push button telephone and builds a translator to decode 
the input. There are two main sections to the system, the analyzer and the trans- 
lator, which cre both written in STANFORD ALGOL W (Version 21 NOV1969), 
The analyzer reads a grammar in Backus Naur Form 2 (BNF) and analyses it for 
problems in coding the language into a set of twelve characters, The analyzer 
output is then used to build a translator for the language. Figure 3 is a flow chart 


showing the use of the Tele-Coder. 


The Tele-Coder will analyze any context-free language. Any context-free 
grammar can be written in BNF and this is a requirement for the input to the 
Sen. 
analyzer, This type of input was chosen because it covers a large class of 
languages and provides an explicit description of the language in compact form. 
Also, this method of describing a language has found widespread use in recent 


years and is familiar to most computer scientists. 


A. THE ANALYZER 
A sample input to the analyzer is shown in appendix A, There are three main 
parts to the input; the array sizes, the language syntax and ihe user defined para- 


meters, 


2 Also called Backus Normal Form, 
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A good illustration of the use of BNF to specify a context-free grammar is given 


in{Ref, Z/ 
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There are two array size numbers required, and these are used to dynamically 
allocate space for storage of the user defined parameters and the phrases of the 
grammar, The first of these numbers is used for the grammar and does not have to 
be exact but must be greater than the number of phrases in the grammar, The 
secord number is the exact number of user defined parameters. 

The grammar input follows a form similar to that used for the XPL system 
CRef, 7] . The BNF metasymbols ::=,], ¢€, and? are used to break the pro- 
ductions into left parts followed by a list of right parts, The input to the analyzer 
does not require the use of the metasymbol |, or the use of the symbol ::=, The 
only restrictions on the input are as follows: 

1, There must be only one production per input card, 

2, There muct be only one right nart ner cord. 

3, The left part must start in column one, 
A left part is not required for every input card, When the left part is omitted, 
the input is assumed to be a right part alternative to the most recent left part. 
The grammar input is terminated by a card containing "EOG" beginning in column 
One 

There are seven required user defined parameters, These form the final input 
to the analyzer and they must be ina strict format and sequence. (See appendix 
A.) None may exceed five characters in length and codes for special characters 
must be two characters, Additionally, the special character represented must be 
included in the fifth column of the input string. The input strings must also be 
enclosed in double quotation marks (i.e. "). The input ordering of the seven 


required parameters is as follows: 





space designation 

number designation 
variable designation 

end of line designation 
character string designation 
quote string designation 

» re-start designation 


° 


° 
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The distinction between the character string and quote string designation is that the 
character string refers to program comment strings and the quote string is used for 
data type "character strings". If either designation is not required, "NO" may 

be input for parameter five and/or six, 

In analysis of the grammar, special characters are first determined, These 
include any characters which are not members of the alphabet or the integers. 
They are assigned a code in the sequence *0, *1,..00, “9, #0, li oh eee 
ap i ean stored for outout to be used by the translator, Cedes assianed in 
the user defined parameters section are checked to assure that no conflicting 
assignments are made, The number of special character codes required may not 
exceed twenty-four, The total number of special character codes assigned is also 
output for use by the translator, 

After completion of the special character coding, reserve words are determined 
and stored for coding, Reserve words are terminal parts of the programming lan- 
guage in question, and must be uniquely recognizable in the deceding process. 
The coding of these words consists of the mapping of the letters of the word onto 
the key numbers of the push button telephone keyboard, Conflicts may appear in 
this coding and they must be resolved by the user, For example, the words "IF" 
and "GE" would produce the number code "43", This problem could be resolved 


by using the code "GEQ" in place of "GE". The translator would then recognize 


ie, 





code "430" ("GEQ") as "GE" so the original language would be preserved. The 
number of reserve words is also tabulated for later use by the translator. 

The output from the user defined parameter section, the special character 
section, and the reserve word section combine to make up the total input to the 
translator, The analyzer presently provides a printed output which must be pre= 
pared for input to the translator, The provision of a punched card output from the 
analyzer would speed up the total process but was not considered necessary to the 


study. 


B. THE TRANSLATOR 

The function of the translator is to accept information from the analyzer and 
use this to build a decoder for the programming language processed, A sample 
input ro the iranslajor is shown’ in appendix B, 

The input to the translator also requires two array upper bounds, The first of 
these is the number of special characters, and this is followed by the number of 
reserve words, These numbers provide for dynamically allocated storage in the 
translator, The additional input consists of the user defined parameters, the reserve 
words and their coding, and the special characters and their coding, With the 
full input, the translator becomes a working model and is ready to accept coded 
input from a push button telephone. 

The input scanning of the translator depends heavily upon the characters "*" 
and "#". These are used to break the input number codes into subsets for decoding. 


The use of these characters in forming the special character codes places them in 


the programming language where they may be used to serve this purpose with no 
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extra effort, Where two number codes fall adjacent, the space designation must 
be used to provide the necessary break, 

The variable designation is not decoded to the specific input character by the 
translator but instead always decodes to the letter "V", This is not a requirement 
but was chosen for convenience. This method also serves to illustrate the efficient 
use of a digit that is not used as the beginning of a reserve word code, In one 
language used in testing, no reserve words began with the letters "Q" or "Z", 
This allowed the use of the digit "O" as the variable designation and so a two 
character code was not required, Since the digit "1" is not associated with another 
character or letter, it is always available for this type of use. 

The character string and quote string options in the translator are dependent 
ona ful! diphapet coding scrieme Gesicnicu te illustvatc this type ef coding, The 
scheme is based on the alphabetic character location on the push buttons " The 
code requires two characters per alphabetic character, The first character is 
simply the push button number on which the alphabetic character appears, The 
second character is determined by the relative position of the alphabetic character 
on the push button, The alphabetic character will appear in the "first", "middle" 
or "last" position, (See figure 1.) This position and the row of the first code 
character determines the second character, The number "4" represents the "first" 
position for row two and the number "6" represents the "last" position for that row, 
For example, the code for the letter "L" is "56" and code for the letter "X" is 
"98", Letters "Q" and "Z" are assumed to appear on push button "O" and the 
"middle" position of this key is not used. 


This scheme is similar to the one given in Ref, |, 
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Error analysis for the translator is handled primerily in one subroutine, When 
an un-decodable sequence of characters is encountered, a message particular to 
the area where decoding was in process is first output. Control is then transferred 
to the error handling routine and the characters successfully decoded to the point 
of the error are output. Analysis to determine the sequence of non-decodable 
characters is also output. Finally, the line of code containing the error is dis- 


carded and control returned to the main program, 


GeTESTING 

The implementation of the Tele-Coder was directed at demonstrating the theory 
of such a system and to allow study of the various aspects of the system, Testing 
of a specific concept was considered adequate when a valid result was obtained, 
and no aliempt was madc to optimize the crecedure in question. Addiiionual 
testing and a period of evolution would be required to produce a good production 
model of the system, 

Two programming languages were used fo test the analysis portion of the Tele- 
Coder. The two languages were BASIC and BALGOL, and were chosen because they 
represent a significant programming capability and provided a good overall test 
of the system, The description of the syntax for BASIC was taken from Ref, 8, 

The syntax specification for BALGOL, which is a version of a student language 
written using the XPL system, was available from the writing of the language. In 
both cases, the changes required to make the language acceptable for input over 

a push button telephone were minor and there was ample room for expansion, should 
more powerful language be considered, The sample output from the analyzer in- 


cluded in this paper is from the analysis of BASIC, 
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The output from the analysis of BASIC was used to build and test the translator, 
The telephone input to test the translator was simulated by standard punch-card 
input, and the result of this testing is shown as the output from the translator, 

The significant features of the system are demonstrated by this output, A com- 
parison of some of the features can give insight into some of the concepts of the 
system, The character string feature (output line 1) is a good example of the 
inefficiency of a coding scheme using no contextual information, Output line 
four uses context to reduce the average code word length, This reduction is 
obvious and significant when the two lines are compared, The advantageous 
segmantation of the code by the special characters is also quite obvious, The 


final lines of output were used to test and demonstrate the error detecting capa- 


hilities of tha translator, 


Ze 





IV, CONCLUSION 


The Analyzer has demonstrated the feasibility of a system for analysis and 
codirg of certain programming languages for use with a push button telephone, 
The Translator has demonstrated the use of this analysis te produce a translator 
for decoding the programming language, The Tele-Coder then is a system that 
could be developed into an aid that could greatly enhance the use of the push 


button telephone as a compuier terminal , 
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OUTPUT FROM ANALYZER 


PRODUCTIONS IN BNF 


KRKEEKKEKRERKREKREKERRERERERRREREKREKERERERERKEKRRERRRRRRRERERREEREREREREREEREERER 


ROGRAM SET) = @ROGRAM) 
| PROGRAM SE PROGRAM) 


PROGRAM) ::= STATEMENT SET> €ND STATEMENT) 


STATEMENT SET) ::= GTATEMENT) 
| (STATEMENT SET) STATEMENT) 


<END STATEMENT? ::= <LINE OPTIONVEND 


STATEMENT) ::= (LINE OPTION) (BASIC STATEMENT) 
| <EMPTY> 


CLINF OPTION) ::= (INTFGER) 
( \EMrry? 


<INTEGER) ::= (DIGIT 
| INTEGER) ©1GIT> 


CEMPTY> ::= 


(DATA LIST ::= (DATA ELEMENT> 
| <DATA LIST) , DATA ELEMENT» 


ALPHA VARIABLE ::= «VARIABLE ASSIGN > 
| <ALPHA DATA) 


(NUMERIC DATAY ::= <SIGNED NUMBER) 
| (NUMBER? 


(SIGNED NUMBER> ::= SIGN NUMBER) 
SIGN) ::= + 
<NUMBER) ::= <INTEGER> 


<FRACTION) 
CDECIMAL NUMEER> 
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FRACTION) ::= . INTEGER) 
(DECIMAL NUMBER) ::= (INTEGER) (FRACTION) 
(ALPHA DATA) ::= '{STRING)' 


(STRING) ::= CHARACTER) 
| <STRING) <CHARACTER} 


(CHARACTER? ::= <DIGIT) 
(ALPHA CHARACTER) 
(SPECIAL CHARACTER) 
<EMPTY) 


<DIGIT) ::= 


0 
1 
2 
3 
A 
5 
6 
7 
8 

1 ¢ 

(BASIC STATEMENT) ::= (REMARK) 

(LETS 
<READ) 
(DATAS 
(PRINT) 
(GO TO} 
{IF 
FOR) 
NEXT} 
DIMENSION) 
<GOSUB) 
<RETURN) 
{PAGES 
STOP) 
<RESTORE) 


(REMARK) ::= REM(CHARACTER SET} 


(CHARACTER SET) ::= (STRING) 
| <CHARACTER SET> ' (CHARACTER SET) 
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<ALPHA CHARACTER ? ::= 


<G4I“% AQVYOZ2 A= - Ler o ae 


oe Sa! 
— 
> 
= 


wo 


ie 


(SPECIAL CHARACTER)  ::= 


0 NN Oe + i 


- tt ne 


CLET>) ::= LETLET STATEMENT) 


(LET STATEMENT) ::= «LET ALPHA) 
| <LET NUMERIC) 


(LET ALPHA) ::= <ALPHA ASSIGN) = ¢ALPHA EXPRESSION >) 


QF) 





YALPHA ASSIGN? ::= ALPHA VARIABLED 
| ALPHA ASSIGN) = <ALPHA VARIABLE> 


ALPHA EXPRESSIONS ::= <ALPHA DATA 

| ALPHA VARIABLE? 
<LET NUMERIC) ::= <VARIABLE ASSIGN> = <EXPRESSIONY 
VARIABLE ASSIGN) ::= VARIABLE) 


| VARIABLE ASSIGN? = <VARIABLED 


AV/ARIABLEY ::= SIMPLE VARIABLE 
| <SUBSCRIPTED VARIABLES 


{SIMPLE VARIABLE? ::= <ALPHA CHARACTER) 
| <ALPHA CHARACTER) <DIGITD 


(SUBSCRIPTED VARIABLE> ::= (ALPHA CHARACTER) ( <SUBSCRIPT LIST) ) 


<SUBSCRIPT LIST) ::= <EXPRESSION> 


(EXPRESSION) , EXPRESSION 


(DATA FLEMENT? ::= <NUMERIC DATA) 


<EXPRESSION) ::= MULTIPLY FACTORY 
<SIGNY EXPRESSION? 
<EX PRESSION) <SIGN) MULTIPLY FACTORY 


(MULTIPLY FACTOR> ::= <INVOLUTION FACTOR? 
| MULTIPLY FACTOR» (MULTIPLY SIGN) <INVOLUTION FACTOR) 


<INVOLUTION FACTOR) ::= <TERM) 
| <TERM)**<TERM) 


<MULTIPLY SIGN) i= * 
y 


<TERM) = «NUMBER? 
<VARIABLE> 
(EX PRESSION)) 
CFUNCTION TERM? 


(FUNCTION TERM> ::= (FUNCTIONS(<EXPRESSION> ) 


J2 





CFUNCTION) ::= SIN 
GOs 
TAN 
ATN 
EXP 
ABS 
LOG 
SQR 
INT 
RND 


€READ> ::= READ(READ LIST) 


{READ LIST> ::= (READ VARIABLE > 
| ZREAD LIST> , (READ VARIABLE} 


<READ VARIABLE) ::= “ALPHA VARIABLE) 
| VARIABLE) 


(DATA) ::= DATAWATA LIST) 
¢PRINT) ::=  PRINT(PRINT LIST> 


CPRINE 1357) s:=  CPRINE FLEMENTS 


| <PRINT LIST) , (PRINT ELEMENT) 


<PRINT ELEMENT) ::= EMPTY) 
<ALPHA VARIABLE) 
< VARIABLE) 
(EX PRESSION? 
¢ALPHA DATA) 
TAB(<EXPRESSION)) 


(GOTO) ::= GO TOINTEGER) 


<IF) ::= IFCEXPRESSION) <RELATION) EXPRESSION) THEN (INTEGER 


(REPAON> == GT 
GE 
LT 
LE 
NE 


— 


<FOR) ::= FOR (SIMPLE VARIABLE) =. 7 


<EXPRESSION) TO (EXPRESSION) <STEP OPTION? 





STEP OPTION) ::= <EMPTY} 
| STEPEX PRESSION) 


<NEXT> ::= NEXT<SIMPLE VARIABLE) 
<DIMENSION)  ::= DIM{€OIMENSION LIST 
DIMENSION LIST) ::= <DIMENSION VARIABLE 
| <DIMENSION LIST) , <DIMENSION VARIABLE? 

(DIMENSION VARIABLE> ::= <ALPHA CHARACTER) ( <EXTENT) ) 
EXTENT? ::= INTEGER) 

<INTEGER) INTEGER) 
<GOSUB) ::= GOSUBCNTEGER> 
<RETURN) ::= RETURN 
STOP) ::= STOP 
PAGED ::= PAGE 
CRESTORE? ::= RESTORE 

| RESTORES 
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USER SPECIFIED PARAMETERS 


acca eA RRR RKRRERRRRERKERRERRREREREREEKRRREK FRR RRR REE ER RERREDPRKERERRRREER 


SPACE DESIGNATION = ** 

NUMBER DESIGNATION = 1 

VARIABLE DESIGNATION = 9 

END OF LINE DESIGNATION = ## 
CHARACTER STRING DESIGNATION = ALPHA 
QUOTE STRING DESIGNATION = *5 ! 


RESTART DESIGNATION = #* 


NUMBER OF PARAMETERS = 6 
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SPECIAL CHARACTER CODING 


Kina KRARRRRKKKRRRRKRRRERRRRKREKRREKRRRRERER ER ROREEREKRERERREERERRRRERRREEREEE 


SPECIAL CHARACTER CHARACTER CODE 


* *O 
*] 
2. 
os *3 
: *A 
*5 USER DEFINED OPTION 
*6 
i 
*g 
~~ 
a0 
** USER DEFINED OPTION 
tt ~~ USER DEFINED OPTION 
#* USER DEFINED OPTION 


+s 


ti — NN 


NUMBER OF SPECIAL CHARACTERS = 14 
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NUMBER CODING OF RESERVE WORDS 


KREERRKRKRRERERERRERRRERERRERKRRERRRRRKEEKREREREEREEERERERKREREKERKRKEKERREREKE 


RESERVE WORD NUMBER CODE 
ALPHA 25742 USER DEFINED OPTION 
END 363 
REM 736 
LET 538 
SIN 746 
GOs 267 
TAN 826 
ATN 286 
EXP 397 
ABS 227 
LOG 564 
SQR 707 
INT 468 
RND 763 
READ 7323 
DATA 3282 
PRINT 77468 
TARS 892 


CHARACTER { DOES NOT CODE 


GO A6 
IF 43 
THEN 8436 
OT; 48 
GE 43 


IF 

43 

CE 

A3 
LT 58 
LE oe 
NE 63 
FOR 367 
TO S6 
SUEr 7837 
NEXT 6398 
DIM 346 


38 





GOSUB 46782 


RETURN 738876 
STOP 786/ 
PAGE 7243 
RESTORE 7378673 
RESTORES 7378673 


CHARACTER $ DOES NOT CODE 
NUMBER CODE CONFLICT 
RESTORE 
7378673 


RESTORES 
7378673 


NUMBER OF RESERVE WORDS = 36 
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OUTPUT FROM TRANSLATOR 


736* *2574287454679* *7778 664478 2164* *313264666579877821873279**8745322574 2H # 
REM THIS PROGRAM DEMONSTRATES THE l 


736* * 2574233667864 2187 **6633* * 21 **222 17946 23" *77 7864478 2 164* * 2574 Dit it 
REM FORMAT OF A BASIC PROGRAM 2 


1100**7323**01* 102* 10377 


100 READ VI, V2, V3 ; 
536% "04602" 0037# 
LET V4=V2*V3 P 


538**05*6*4114*004## 


LET V5=,14*V4 6 
538**06*604* 30577 
LET V6=V4-V5 7 


A3**01*6* *02**B436** 120077 
IF VI= V2 THEN 200 8 


77468**01* 102*103* 104## 


PRINT V1, V2, V3, V4 9 
46* *86** 110077 

GOTO 100 10 
538* *05*6i* 


AO 





77468*8*5874532* *0*88668732* *798778466544* 5*9 Hit 


PRINT('THE QUOTE STRING') 11 
3283**11*113*4150*11100## 
DATA 1,3,.50, 100 rE 
1200** 363% 
200 END 53 
538#805*6*4114*004 #7 


~--| NVALID SPECIAL CHARACTER--- 
OUTPUT TO THIS POINT 

LET 
SPECIAL CHARACTER #8 DOES NOT DECODE 


438**05*6*4114* 004 #7 
---| NVALID RESERVE WORD--- 
OUTPUT TO THIS POINT 


WORD 438 DOES NOT DECODE 


7.368 * 257A 287 254679 877 7 OATS 21 G4* 3 DOGAELES7OSTZ EI 187 3270 #B7AS 299574 DHF 
---INVALID ALPHA CHAKACTER--- 

OUTPUT TO THIS POINT 

REM T 

WORD 254679 DOES NOT DECODE 


77468*8*5674532* *0*88668732* *798778466544* 5* Hit 
---INVALID QUOTE CHARACTER--- 
OUTPUT TO THIS POINT 

PRINT(’ 
VWee@Rw 674532 DCE INOT DECODE 


77468*8*6874532**0*88668732* *7987784665443 2* biti 
---INVALID RESERVE WORD--- 
OUTPUT TO THIS POINT 

PRINTEG 
WORD 874532 DOES NOT DECODE 


EOP 
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tu Oe E> 

= ese cee Not 
}uUs mai eo | Sins z= 
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OC Wk 104 W o> 
I eSHMTDAOS WN<ithiu 
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Uike Sim NE Mr OUOL IL 
ZX Or WOT ke ke oe ah 
SOG OINnNO Cait) WV “i 2 
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WieKOqd Wesesrst rev DO OOr 
ieee Lj LO <f i 
we Qo WrZsy Wit. Zh U9 <I 
Gr 63) << #r-G) 10.220 (aa io 6 SF pera ead 
Wet et SURI TY a et OOD 


Y CONC DeEWN™ Tr 2Or-O erie 
DZ RA KIO I be LUN Oe tN pe 
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V2 Dik FeO Oke Pe TOUR OZ 
SO SAMI me wOWMaAseHoOor OC 
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CQ ZU tee = CD HLL NEY 
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NYONnADDA BRYN BMwwowoswe 
PTW D QA AwLULeNnetk]A 4 —eNbE 
Oct OMRKRW WwetT WwW YMOWO 
HOWWZeHNNWwORm wt Ww tO awd 
er OLe DOD OFTPTOMeS Cee 
QaMn2kre ewe] Aco} een godown 
© RPO OFWraA aAaAaDdeTtouw 
BN~K~Y NEAWNWNAS eOoNZo>wogcer 
We mrPWoDDtee 
—> FrOrFDAO © WR WR OMSTWNOM 
Wa ya ae en Ee ae ee 
Cit <i et CIS WORF at 
Orwnwe~e~u Onswk-se NYS 
Cw Sy ZivplwlivD tw 
Seep os Os O20 


Jus 
Ue oft ih 


Be Hs IK OK SR He Se Re a IC ME NC A ae BIC OK IE KE NK OP EE IS OS a Oe a KC ofS Se aK fe OR As AS I SS AS OK SKA KA ARE REG 


PeeeaerTrTiIGNns; 
BEGIN 


PROCEDU 


A2 





CCMMENT 2% 


3¢ 


PCAC ENURE 


Pi l= (oe 
Wwerswyaeet 


oF OR 


FOR I:= @ UNTIL (X-1) DO READCOPTIGN(1)); 
WRITE(BLANK)3 
WRITE( BLANK) 3 
WRITEC "USER SPECIFIED PARAMETERS") ; 
MPR TT aon Pitas a eae etme ven Ne eee eri rer oe ACR A AT g 
WOO oe ee Me ok HE OK oe OS OK Oe SKK oR oe ae Kaa KN) sg 
WRITE{ BLANK) $ 
WRITEC "SPACE DESIGNATION = ",QPTION(E))3 
WRITE( BLANK) 3 
WRITEC(™NUMBER DESIGNATION = ",GPTIGN(1))3 
WRITE( BLANK) 3 
WRITEC™VARTABLE DESIGNATION = ",GPTION(2));3 
WRITE( BLANK) 3 
WRITEC"END CF LINE GESIGNATIGN = ",CPTIGN(3))3 
WRITE( BLANK) $3 
WRITE(*CHARACTER STRING DESIGNATION = ", 
OPTICN(4))3 
WRITE( BLANK) 3 
WRITEC "QUOTE STRING DESIGNATION = ", 
OPTION(5))3 
WRITE( BLANK) 3 | | 
WRITE("RESTART DESIGNATION = *,GPTION(6)); 
WRITE( BLANK) 3 
WRITE( BLANK) 3 
WRITEC™NUMBER GE PARAMETERS = ,X-1);3 
END OPTIONS: 
ote He he Haye op os ok oes Oe Be Ae as Ok AK OMNI os AK ae ays he Dee MOI Sr AS Oe Is Ok oye A Ae OK AC ie RC ee oe og ere oe ee oe Oe 
PROCEDURE L*LOGAD ACCEPTS THE SYNTAX READ IN BY 
THE MAIN PROGRAM AND LOADS IT INTG THE ARRAY 
PROOUCTIGN FOR USE BY THE GTHER SUBRGUTINES. 
HE OE FR He Ag Oye 26 BS CK Be SK oie OE OK KK OE OE TK CT HE OK EK EE AC OK OE OK IK BE CE A IK CA KE Kg 
1 MAD: 
PNUM:= PNUM41;3 
PRODUCT ION(PNUM)s= " ts 
RIGHTPART:= " "; 
KK — fh 
J2=C35 
IF SYNTAX(9]1) = "<<" THEN 
BEGIN 
LEFTPART:= " 
Hebe SYNTAX (311) n= ">" 00 
BEGIN 
LEFTPART(JI]1):= SYNTAX(J41)3 
J 3 = “eee: 
END 3 
BPEFTRART (J [age] tou: 
WHILE 1 NT Re sl eet Oe je= Jt) 3 
<= Jl 
WHILE SYNTAX(J/1) = " " DQ 
BEGIN 
1EOS <.25 FeeN a:= J+ 
Eee SYNTAX(J[1):= tar 
WHILE (J < 79) AND (K < 79) CG 
BEGIN 
Ks= K+)3 
RIGHTPART(KI{1)2:= SYNTAX(J[1)3 
J7= JF 
END; 
END ELSE 
BEGIN 
WHILE SYNTAX(JS]1) = * " 00 Js= J4l13 
WHELE (J G79) ANDe(K < 79) DO 
BEGIN 
Ketiaouk +4: 
RIGHTPART(K|1):= SYNTAX(JS11)3 
J7= "red ; 





COMMENT 


PRJCECURE 
BE 


COMMENT 


moO & 


HE AE TS AEA AS AE AK OK AK ys SK BE AS CS EE AE BIE ON OE OK Oe RS AE AR KE OEE OS EK OE OE OK OK OE OE SK OK OK 


AR ECHO PRINTS THE SYNTAX IN A STANDARD 


TA ACNE AE BK EAS ET TS DK IE TAC HE OK SS SE IK OE AE AE 2 OE A IC EC A A EK AK SK RL OK BK KK ET I g 
MENTEGER VALUE 1); 


1 UNTIL I OO 


oe if | it 
Se PRODUCTION(J)(KI1) -7= >" DO 
PRINT USO PRODUCTION( J} (KIL) 3 
a K+] 3 
ae > 79 THEN GO TO NEXT; 
PRINTPCK ey = = essay Mls 
K:= K+t+l13 
ete 
WHILE PRODUCTION(J)(K}]1) = © © DG 
BEGIN 
IF K < 159 THEN K:= Ké4l 
pole PRODUCTION( J) (KI Ls = "A"; 
TF PRMDUCT TONE (K EL) = "Ot THEN 
go C { 
PRODUCTION( J) (K]1)ic= © 8&3 
i= |=7; 
END; 
FOR Ms= K UNTIL 159 DO 
BEGIN 
Ee PRODUCTICN(J)CMI1)3 
ee eS = 
a > 129 THEN L:=t-13 
IF J = 1 THEN WRITECPRINT) ELSE 
IF ee Ce ile = 
PRODUCTIGN(J-1) (0/80) THEN 
BEGIN 
oan Ga 
WRITE(BLANK)3 
WHILE PRODUCTION(J)(Kf1) = © & 
OG WK teks 
FOR Mz=G UNTIL N-5 DO 
WRITEOQN( BLANK)? 
WRITEON( |) ¢ 
RIGHTPART?:= 
PROCUCT IONC J) (8G 180) § 
WRITEON (BLANK « BLAKK,RIGHTPART) 3 
END ELSE 
BEGIN 
WRETE( BLANK): 
WRITE(PRINT)3 
END3 
NEXT: Eh Oe 


HE IK He af ae afk aie aK ae ris oie He ke Hc aK ok ok ae aie Ske as ahs HC oR aie aie aK ake ols ae oie aE OK OK ME REN AS OK IE AS I OK AE As FE AE 


HARACTER CHECKS THE SppNTAX 
WeRsS SUG AS *,/, AWE =e Ine 
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He Xe 2K ak a ake ak ak aK ok ak ae Seok ok ok ote dk ak oe aig ate ok ok ko 


: ECTALCHARACTER(CINTEGER VALUE 1) 


PE SP 
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PROC EDUP. 
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= eet) 
Ont - 

Lu pa ae | 
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Co Cag ow 
Sa SU 


THEN 
240 THEN 
we" THEN 


i Alber 
ree REIN 
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Wee THEN 


tex a 
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mei) THEN 


N(J)(8O]86)3 


Oe 
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WRITE" 


— CY 

Cit be ow 
NO eet 
~~ 0 + 


==MS 20) 


GHP ART CG; 


AS 





Sete Wet ELSE 
eee ye ee ie 
Gece e iys= SNUMEL IT); 
WRITE TSSCSC) (C11); a 
» | 
A .S(SCI(LI2)9)3 
FOR Ms= O UNTIL (X-1) O00 
op oe) Ue = OPTION(M)(Q1{2) 
WRITEON(" USER OEFINED’*, 
mM OPTION); 
IF SC > 21 THEN 
WRITE("TOD MANY SPECIAL", 
NCHARACTERS") 3 
SKIP: END; 
END; 
END 3 
K:= SC3 
FOR Ms= (SC+1) UNTIL 38 DO 
BEGIN 
IF S(M) a= # " THEN 
BEGIN 
WRITE (™ w,S(M)(Ol1)," , ws 
» | 
(M)(1L]2)," 1, 
"USER DEFINED OPTION"); 
Ki= K+135 
END; 
END; 
fest iG tela 
INTFIELOSI ZE:= 14; 
WRITE(C BLANK) 3 
WRITECBLANK)3 
WRITEC* NUMBER GF SPECIAL CHARACTERS = ",K)3 
END SPECIALCHARACTER3 
a Se ete te res te ote oe oh Soak WB aaledic|s tock Mae Seale Ss SI ks Se ak ek Ra ke eK SAR 
PROCEOURE RESERVEWORD LOCATES RESERVE WORDS 
IN THE LANGUAGE AND STORES THEM IN ARRAY RwWo 
Me IK AC AKA OK AK AR AE ES TK OE EK AS ES ERS a Ee OK 3 ORE AS Ble IS SK OK NS IK IS RAE DS ES OE OK OAK KOK IK § 
PRCCECURE RESERVEWORD( INTEGER VALUE I1)3 
BEGIN 
RWN:=0;3 
FOR J: = OMUNTIL xX DG 
BEGIN 
IF (DECODE(CPTION(J)(941)) >= 193) 
AND (DECODE(OPTION(J)(9J1)) <= 233) 
AND (OPTIQN(J) -= "NO 1) THEN 
BEGIN 
RW(RWN):= GPTION(J);3 
RWN:=RWN41 3 
END 3 
END3 
FOR J:= 1 UNTIL I DO 
BEGIN 
Ae Cee: = PRODUCTION(J) (80/89); 
TERMINAL2= TRUE3 
WHILE K < 79 DO 
BEGIN 1. 
IF RIGHTPART(K]Ji) = "<" THEN 
TERMINAL: = FALSE; 
IF RIGHT PART (KIL) = >'9 THEN 
RMINAL3= TRUE; 
se [ 
WHILE cou amie CesT) 
AND ((CDECCDE(RIGHTPART(K11))) 
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=) 933% 
OR {SC > &)) 
AND TERMINAL DQ 
BEGIN 
SCODE(SC|1)2=" RGHEeenRmek! 1); 
SCi= SCH 
Ks= Ktl: 
IF RIGHTPART(KI1L) = "<" THEN 
TERMINAL: = FALSE? 
IF RIGHTPART(K]1) = " THEN 
TERMINAL: = FALSE3 
IF K > 79 THEN 
BEGIN 
=O 
TERMINAL!:= FALSE; 
END; 
END); 
If SC > 1 THEN 
BEGIN 
RWERWN)s= SCODE; 
FOR L:= G6 UNTIL (RWN-1) DO 
IF RWCRWN) = RW(L) THEN 
RWN:= RWN=-13 
RWN:= RWN413 
END; 
= et]: 
END3$ 


END; 
END RESERVEWORD$ 
COMMENT — 2 A 2a aE OE ag i 2K SR Be ai ie ak ae ae ae SA OE OE 2 2 2 eH 2 2 Se a ic 2 OK SE SR SR IK HERE IK 
PROCEDURE WCRONUMBER ASSIGNS THE NUMBER CODE 


10 THE URES SRyVEe ers Nene cKksS FOR Caner icit= 
ING NUMBER CODE Se 


- 9%. 8, utp mts af, wks of wt, af. a aS, 4%, 2. 2 . a= hs 24, 8 act ore te of aioatie 4. at. of, . 
he Mz ale: keiale sig o's Te als she she ahs she she Se ac isk HE ae sis te He sae shea sheet ak ofc sie 3 os Se oe eos =: 


PROCEDURE WORDNUMBERCINTEGER 1}5 
FOR J: oS 


<= & UNTIL Se 
BEGIN 
WRITEC" W)s 
Kz= O3 
WHILE RAW(S) (KIL) a=" © DO 
BEGIN 
WRITEON(RW( IS) CKIL))3 
Ks= Kt13 
END; 
Me= K;3 
WHILE M < 2@ DO 
BEGIN 
WRITEON(' &) 
Mo = Med: 
END; 
FOR L:= @ UNTIL (K-1) DO 
BEGIN 
M2=05 | 
WHILE RW(J)(LJ1) a= ALPHA(M!]1) DG 
BEGIN 
Ms= M415 
TF M > 25 THEN 
BEGIN 
WRITE( BLANK) 3 
WRITECVCHARACTER “,RW(JVCLI1), 
t OOES NOT CODE"): 
WRITE( BLANK) $3 
CGeTO HOP; : 
END3 
END; : 
RWC J) CLF80]1):2:= ALPHANUMBERCML1)3 
WRITEONCALPHANUMBER( HI L))5 
HOP: END; 


AJ 





FOR N:= @ UNTIL (X-1) BDO | 
IF RW(J) (015) = GPTION(N) THEN 
WRITEON(" USER DEFINED GPTION") ; 
FOR N:= O UNTIL (J-1) OC 
BEGIN 
IF RW(N) (86/80) = RW(J)(80]8G) THEN 
BEGIN 
WRITE( BLANK) 3 
WRITE(™NUMBER CODE CONFLICT"); 
WRITE(BLANK)3 
ROg 
1 @ a 
WHILE RW(NI(K]1L) -7= " | OG 
BEGIN 
WR ITEON(RW(N) (KI1)) 5 
aS Kt 3 
EN 
WRITEC BLANK) 5 
WHILE RW(N) (804K] 1) 7-= " " DA 
BEGIN 
WRITEON(RW(IN) (804K1E1)023 
Ke arK+) 3 
END; 
ee eeenigns 
WHILE RW(J)(KI1L) -~= " © 20 
BEGIN 
eT ON COS 
Ks= K+ 
END; 
WRITEC BLANK) § 
WHILE RW(JS)(8O04K{[1) -= © | OO 
BEGIN 
ee BOT 1 
END 3 
WRITECBLANK): 
WRITE (BLANK) $ 
END3 


END 
END WOROKUMBER; 
COMMENT — 2828 ak ak ak ak ak ae seat ok ae ok otek ake Ze eae seas aos ah ak Be ae aK 2 a aE a a aE a ae ofa 9k ae a 


Be HIE AE 
PROCEDURE ANALYZE CALLS SUBROUTINE s VENee k= 
FORM THE ANALYSIS OF THE SYNTAX. 


Hi BP. FE AS HE AE KT As ae He ae A SK IK AK AE OK Cis ae AEDs Ae As Me Meals Me ak Ae HE Hs He RoR: AE Ks EA Ree A GF 


FrRecEDURG ANALYZE; 
BEGIN 


WRITE( BLANK) 3 

WRITE( BLANK ) $ 

WRITEC "PRODUCTIONS IN BNE); se ne 

WRITE ( S82 25 25 mc 5 eS OK OG a as OR OR YC AK FE Ne HR Ae NS SK NS OS AS HE RS OE RS EK AS CK ASK IK, 
UU ac Oe IE Bie ak AST EK OR KOK 9: SK OK Sk ak OK aK) 5 

WRITEC BLANK) 5 

ECRUCP NUH) 5 

OPTIONS; 

WRITEC BLANK) $ 

WRITECBLANK) 5 

WRITE( BLANK) 3 

Wei te CVSPec PAL CHARACTER CODING") 3 

WRI TE ( tak eae me 352% 2c oe Sik fe ahs 2 a ic te HR a ote ai oi ok 2K ae He oe aK eae a ae KA AIA, 
OE sic Bis oe RS TE ee AS Oe Ok NC OK OE OK ONE Ate Ae sak eK ae 

SPECIALCHARACTER(PNUM) 5 

RESEPVEWQRD( PNUM) 5 

WRITECBLANK)$ 

Mit TEC BIA ) 5 

WRITEC( "NUMBER CODING OF RESERVE WORGS");$ 
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ART TE (8 ae 2 ok 2 2 2 ae oe ate a ae 2 2s ae eae oe eae ate a ok ak os oe ak of a a ak ake ae aie ak 
WUE ah te te Me a he ae a aah eee ae fee ese ke te KT) 
WRITE( BLANK) 3 
WRITE( “RESERVE Ord NUMBER CODE") ; 
WRITE( BLANK) 5 
WORDNUMBER (CRWN ) 5 
RUNS= RUN—1 3 
WRITECBLANK) 5 
WRITE( "NUMBER OF RESERVE WORDS = ",FWN)5 
END ANALYZE3 
COMMENT 2x26 28 28 9):ai arok ae ak ak 2k ok ae a ok ak ae af ae abe abe att aft ac a ts ae ake at ake a ae ae akc ak ak ae ath ae ake oe a aka ok ak ae 


A 
MAIN PROGRAM BEGINS HEREe 


BKSK TK ME AK TK AE IK IE IE AS SK BS SX BS HK BE NS SS HE IS I KH HS EI Ee AS RE AE EK IK I AE ER AE aK EK 5 


WHILE MOREPRODUCTIONS DC 
BEGIN 
READCARD(SYNTAX); 
IF SYNTAX(0{3) = "EGG" THEN 
BEGIN 
MOREWORK:= FALSE; 
MOREPROOUCTIGNS:= FALSE; 
ANALYZE; 
END ELSE 
LOAD; 
END MORESRODUCTIGNS: 
END MOREWORK3 


ENDo 
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DK AE AS IK OK AE Oe OG OE IK Be OK OK oe Oe hk he ie oe RK Oe Oe OK OK OK IE i CK OK Oi A Ae KE ok 
* 
3 K 
me TRANSLATOR * 
* Xf 
* xt 
J Sete te ok Sk Seek Sea aC REE ae ak a ak aI a a af ae oe ake fe ake a ak ak ak ak ak ak aie ak 
EGIN 

INTEGER I,J5S3KoboMsSCyRWN, LINES 

INTEGER AL, EC, NUs SPs VAs QA RES 

STRING(SuU) INPUT, QUTPUT, WORD HOLDS; 

STRING( 52) ALPHANUMBERS 

STRING(26) ABC; 

STRING(6) ALPHA, EOL; NUMB, SPACE, VAR, SPWORD, QALPHA; 

STRING(6) RESTART3 

STRING(2) SAORD; 

STRING(1) BLANKS 

LOGICAL ERROR; 


COMMENT — cok ots oko of 2 atete ate a oe ok ae tea ak akc a a ae ae a CCAR a te a ak ae ae ak a ak ak aca ok a IK ae ask 
EXECUTION BEGINS HERE. 


BK RE TK SSIS AR AC SE OE OK AC SR 2k UE SK OS OK OK AK AS AS IR AR OK TK CK OK KK KKK ORK RoE Ke § 


READ(SC); 
READ(RWN) 5 
BLANK:= 5 
ERROR. — FACE, a 
AL PHANUMBER: = 154222331 32334445 4554955 5646595777379" 
AL PHANUMBER( 36/16) 2= "E7888997S3990% 54"; 
SE OE” Sages ee NOP RST UV EAN L s 
STO INGE LEY ARRAY RHOAS 2 QRWN) : 
SER INGHS? MPO AY SEOF tS bs 


COMMENT 2 OR SE SK aR Bie OOK ek Oe Ee OE OR OE OK OR OK OK ok i ok OE OK OK SES Te ke Fie as RK AC OK IR OK 2K OK OK KK KEK 
Wee ERR Ue PRINTS GUIPUT ERROR MESSAGES 
INTS GUT THE ERROR LOCATION IN THE INPUT 
DS BS HK AS IK NE BK SE NS IC OIE KE ANS ah she te BK AS OK A TS IS OK KB AE LOK OI SIS OS OK OS OK OK ON TE EK SSK SKOKIE § 

PROCEDURE ERROWCINTEGER VALUE A); 

BEGIN 

ean: = Se 1; 

I U TQ THIS POINT"); 
I p 

( 

( 


Mac) 
“#%) THEN 


LZ oom 

PPc ac 
4m" t 

bn4 bt wee we 

~~ wee 

ded 

tol 


> 
COZ =amM 


MOMNMDRD 


0 
a. 
. 
( 
( 
I 


ZremT 7+ 


G 


ECODE( INPUT(A11)) > 239 DO 
HO UR SRNIPUT (AIL); 
Ds 


MmreeO DVO cil 
Galt Gee 
ae OO aAataAO-4 


Cogan om 
Zee oe 


L+1;5 


i WORD Hs 

E HOLD(LJ1) a=" " 99 
ARITEON(HOLD(LI1))3 
Li= L+ 


e 
? 


END 3 
TEGiR USES NET DECCDE™) ; 
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el Se 
BEGIN _ 
Minis 4" SPECTAR SCHARACTER "); 
WRITEONCINPUT(A]2))35 ; 
a O@es NOT DECODE")> 
CND ERROWS 
CCMMENT BE AG OK Be 6 oC 2s ote ole Ae TK eK NG aK AK EK OK IE AE RS RM IE Be OK ES TK OK OK OE OK OK EE AK OK Oe OK OK OR OK OK OK OK OK OK 
PROCEDURE OPTIONS READS IN USER DEFINED PARA- 
METERS AND DETERMINES THEIR CHARACTER LENGTHe 
Beas ok eae ae ae sie he ate Be aie oa oe ok ee he ahs oie he oi ake fe she ie oe oie ee a he oe ake ake oie ae a afc ake Sk aK Ac ak ok ae ok ae a 
PROCEDURE GPTIGNS3 
BEGIN 
READ(SPACE) 3 
READ(EOL);$ 
READ(NUMB) 35 
READ(VAR)5$ 
READ( ALPHA) 3 
READ(QAL PHA); 
oa 
3=G; 
WHILE SPACE(SP[1) -m= " " OO SPs= SP413 
Sea S P= les 
SO ai ; 
WHILE EOL(EOQ|1) -~= " " OO ENs= EO+13 
Bes= EO-];3 
NU: =03 
WHILE NUMBCNU[1) a= © " DOGO NUs= NU4135 
Ni: = NU=-15 
VAZ=05 
WHILE VAR(VAIL) -= " " DO VA?t= VA413 
WAt= YWA~T¢% : 
WHILE | ALPHACAL{1) a= 00 Aet= Ale; 
ALs= Ate=-13 
QAi=03 
WHILE QALPHA(QA[1) -3== " " DG QAt= QA413 
ee cas ile 
OR tet oF 
WHILE RESTART(REJ1) -= " * OO REs= REt13 
ees — Ot als 
END OPTIONS; 
COMMENT 9 282: Xe seer i cic sake eck te eo ook ke xe eats oe ae He oe a ig ae he ee a ote as He ee oe oe ee OK Ark kok 
PROCEDURE SCAN2 DECODES RESERVED WCROSo 
De oe aie ohare coke 3k ee she Seco tec ok A ae os a he oes coe me hc nee OK ote cieiste cheite a o o oe icoke ok ie sk ac oe oe 
PROCECURE SCAN2;3 
BEGIN 
iW 2D = ¢ ite 
$= fae 
WHILE DECODECINPUT(K|11)) > 240 DO 
BEGIN 
WORD(L{1):= INPUT(KI1);3 
K:= K+13 
Ls= L+¥l; 
END; 
J2=0 3 
WHILE J <= RWN DO 
BEGIN 
IF WORD = RW( JS) (801380) THEN 
BEGIN 
HOLD = af Vie 
(esr) 
WHILE RW(J) (MP1) -~= " ©" OO 
BEGIN 


5] 





Pipi); 


he 
| (al 
—— a0 
Sa 
a 
re one 


Mit TO 
Zaeeee OC 
mot toma 

ay 
= oe Le 
+4 
a ee 
wewe “Ue 
<=. 
—~ 

Ss 


yee 


ws 


WN THEN 


G5 
ae HERD CEI oss 9 OE 


io SES EAE TS DE PSK RS AS TR AE OS HEE I OS IK BK IK IK IK IK ROE OK HEIL 


COMMENT = 2K 2 2K oR AES EEE 


Ee Seri DECODES SPECIAL CHARACTERS. 
Wes He Ie aE HS BEC IIS AC A OK NE Bk IK BR I aie Og Dic 26 TN SIS DIS BRC SBC SIC Se BE 2K Oe HR IKK TK IS SER AC NO LIK 


PROC EGCURE ioe 


BEGIN 
2 INPi (Ki2) 3 
WHILE SWORD m= S(LICLi42) DO 
REGIN 
is a eo > 
I5 bt >» SC THEN 
BEGIN 
WRITE (-—-TNVALID SPECTAL ", 
N"CHARACTER--—") 3 
a 
GO He NEXT3 
END 
END; 
reunign- S(L) (O11); 
Kes Keo 
l¢= [45 
NEXT: ENO SCANL;3 
COMMENT 262625 Sea FR oR 2 oer oe 2 2g ON AOE OK 2c OK KC AE oR KO SS Ig OC KO OR OK 2K OE I ok se a a HE OS a A OK 2K OK 
PROCEDURE QALPHABET DECODES QUOTED STRINGSeo 
USER DEFINED PARAMETERS SPACE AND NUMBER AND 
ALL SPECIAL CHARACTERS ARE DECODED AS THOUGH 
THEY WERE NOT QUOTED. 
Mo SEIS Bk A NS eS AK IK OK OE OK 31K OK ok ac OH OK ai OK Ae ale OK ols RK 3k Oe IC KO OK OS OR OIE TK IK 2 OK Te ROK AR ISK ACME 
ne 


PROCECURE QALPHABE 
BEGIN 


XT : ick S 4 16 Picweoceets FITS; 
WEE 2 as 


A 
JP1)2:= INPUT(LIEL)3 
4 


S VmeNeGO TO FINIS; 





WHILE SPWORD -= QALPHA DO 
BEGIN 
SPvuaRpea 
J2=03 
{:= K;: 
WHILE J <= SP DO 
BEGIN 
SPWORD(J[1)2:= INPUT(L1I1)3 
J:= J413 
Ls= L+l3 
vee > 78 THEN GO TO FINIS; 
IF SPWORD = SPACE THEN 
BEGIN 
Ks= Kt#tSP413 
le: =) 1+); 
GO TO NEGE 
END; 
SPWORD:= * Ws 
J2=93 
Tos ee 
WHILE J <= NU DO 
BEGIN 
SPWORO(J{1)2= INPUT(LI1)3 
<a Fe es 
(=r | | 
LF ot > 78 THEN GO TO FINIS; 
IF SPWCRD = NUMB THEN 
BEGIN 
Ks= K+13 
WHILE DECODE(INPUT(KJ]1)) > 239 DO 
BEGIN 
OUTPUT(I[1)2:= INPUT(K]1);3 
ies = K+] 3 
5 ae ee | 
chins 
GO TO NEXT; 
END: 
IFC INPUT(KI1) = Met) 
OR (INPUT(K$1) = "#%) THEN 
BEGIN 
SGAN 1s 
Eee io wea: 
END; 
43=03 
(=O 
WHILE INPUT(K]2) -~= ALPHANUMBER(L]2) DO 
BEGIN 
Ms= M413 
ea re 
IF tL = 52 THEN 
BEGIN 
WRITE ("=~- INVALID GUOTE ", 
ARACTER---")3 
cAROuae 
Ms 70. 
GO TO NEXT; 
END; 
END; 
OUTPUT(I111):= ABC(MI1); 
I:= [+13 
Ke= K223 
Ga) 70 NeXT. 
END; 
IF SPWORD = QALPHA THEN 
BEGIN 
K:= KtQA4l1 5 
FOR J:= O UNTIL SC DO 
IF Stu) ae = SPwORD(O{2) THEN 
BEGIN 


epee ueryL):= SUIuReti ts 
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5 $415 
-ND 35 


END 
FINIS. “END ALPHABET 
COMMENT «— 2k 2 sok ok ak of ok oe akc ae aie ae ak safe afc ats ae a ake he fe ak oe afc ak 2k ae ak ae ae ok ae ah ok ok 2 ay a dr a ae 
PROCEDURE ALPHABET Peeeee CHAR SC Ee NN NGS» 
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NOT ARACTERS | STRINGS « 
Dh SOC a AS oh Se Bye ees he oh oe hs ok ok BR ec ees ee Se ees OK IK AR IKI KC AS AR A EK OK 2K OK OE KOK ASS 
AL 

IN 


4 


m 
=f 


PROCEDURE 
BEG 
IS PO ten GO TO FINIS; 


© 
{ 


Geel! i Sl >K< 
Z [Two we Wee 


ers =PuT (tL [1 );3 


meron 
nus 
O 


So tec wo FINS; 
O == ALPHA DO 


we tte 
9 


VO 


e 
2 


gee Sh) 
ears a = INPUT (ila; 
F 

\ 


‘Tee ee EO NZ Tleeeeyg GQ 


Goma it it 
maf CS = wef 


OzrTmoun 


a 7& THEN GO YO FINIS; 
= SPACE THEN 


O=arran 

fee eT ie oo) 

C40 

aMAwe XD 
~ OMOmaA 


Gree | Ul oe 
4 


Py s= INPUTCLI1); 


8 THEN GO TO FINIS; 
= NUMB THEN 


ZMH ON 


of 


CODEC INPUT(K{1)) > 239 DO 


{1)s= INPUT(K]1)3 
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moO it tl-4. mee 
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ans 
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we anf —~ me wl 
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E INPUT(K|2) —-= ALPHANUMBER(L|2) DO 
M413 
2: 
= §2 THEN 
WRETE ("=~ =n NVALID A 
FAR AC TER oo" 
ERROW (KT 


=7935 
So ONE AT 3 
END ; 


@ 
Pa ie 
+ 


PHAM, 


1):= ABCC(M[1); 


Wow 
U 


ZU GAHC 
+4+-im 


Ze Nr tem 
ITiwe we oO 
ome Oo 


> 
_ 


WORD = ALPHA THEN 


DMM Kes O 
MNO ee oe CS 


Oo © 
ma ()oe —4 


ale 
PWORD(O42) THEN 
S (ae) CG 173 


END; 
FINIS: END ALPHABET; 
CPN Sees eter cect 2 hc oe 3 He ae Se oe ee Stet pte ef He ate ote ah oe ee He Ne ahs He ok ie He He he ae ae ok Sie ee 


PROCEDURE SCAN ACCEPTS A SINGLE LINE OF INPUT 
Alt) SCANS tT CHARACTER BY CHASACTER. LUSER 
NEP EO Co Me ACTED S AWB T SUNS ARE libel owe Sy 
SCAN AND OTHER R@UTIWES ARE CALLED. TOC PERFOR 
THE DECODING OF RESERVE WORDS AND SYNTAX 
DEFINED SPECIAL CHARACTERS. 
He AE OK BISECTS OK OK AK IK sie a ok oe Sei ok ak ois is ok ae ae He ais ahs ah ok ale aks ok ae okt Se oh ak ai OK a aS a OK aa 
PROCECURE ee 
BEGIN 
ieee >= tet: 
13=C3 
K2=03 
WHILE K < 79 OO 
BEGIN 
le INPUT(K]1) = " ™ THEN 
BEGIN 
Ks= Kl; 
‘N = 79 THEN GO TO NEXT; 
END 
Bist 
BEGIN 
AGAIN: SPHGRG@s=—" "; 
i (s 
ee eS 
WHILE J <= SP 0G 
BEGIN 
SPWGRO(J[1)2:= INPUT(LIL); 
Jes wt le; 
sas ti 
alee > 78 THEN GO TC NEXT; 
IF SPWORD = SPACE THEN 
BEGIN 
OUTPUTC(T]1):= @ &; 
K:= KtSP415 
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Jjc= ai; 
GO TO AGAIN; 
END3 
SPWORD: = Its 
J:3=05 
Le:= K;3 
WHILE J <= EO DO 
BEGIN 
SPWORD(J]1)2= INPUT(L{1);3 
Jae tales 
be = |e 
eal > 78 THEN GO TC NEXT; 
9 
IF SPWORD = EOL THEN 
BEGIN 
K32=793 
GO TOG NEXT; 
EN); 
SPWORD:= © "3 
J:=0;3 
L3s= «3 
WHILE J <= NU DO 
BEGIN 
SPWORD(J{[1):= INPUT(LI1);3 
jee js}: 
Ls:= L+l; 
a > 78 THEN GO TC NEXT; 
IF SPWORD = WNUMB THEN 
BEGIN 
Ki= K#ig 
WHILE CECODECINPUT(K11)3>239 DO 
BEGIN 
OUTPUTCI(1):= INPUTCK]1);3 
Ks= K4l13 
fo 1+) 3 
mNEES ° 
GO TO AGAIN; 
END3 
SPWORDs= # 83 
Jc=O;5 
i= 4K: 
WHILE J <= VA OO 
BEGIN 
SPWGRD(J[1)2:= INPUT(LI1);3 
A ee 
aac. 
tT > 78 THEN GO TC NEXT; 
IF SPWGRD = VAR THEN 
BEGIN 
OUTPUT(T[1):= "Vs 
Te= el: 
Ks= KtVA+135 
WHILE DECODECINPUT(KI1))>239 DO 
BEGIN 
Cimeurcrpiys= INPUT CKO: 
Ko K+] 5 
Tt= +1]; 
END; 
Gon eee ni: 
END: 
SPWORD:= ts 
J:=0; 
Ls= K3 
WHILE J <= AL DO 
BEGIN 
Senge mcg)1l)2= INPUT(LITT: 
je J+] s 
Pi=ste: 
IF t > 78 THEN GO TC NEXT; 
END; 
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> limi =nPnaA WHEN 


0 Nile SC2bo 
= SPWORD(0|2) THEN 


vB) a Sor ys 


ies 2°) 


K 
te J<= OA DO 
(Jfl)s= INPUT(L41)3 


V++40 
let 


78 THEN GO TG NEXT; 


UNTIL SC Oe 
) = SPWORD(9{2) THEN 


Dilys = Ste iy, 


Om mm HOR 
ee” 8697 Tl I> ee 
Fa il 


He 
@, 
7 


as =) ie en tele tas 


& THEN GO TC NEXT; 
START THEN 


=U 
MS DWDMOor FmM—Cunm 


"NN G20 32 te 2) 


Q 

KJ1) = "& THEN SCAN1 
NPUT(K]}1) = "4% THEN SCAN1 
Sane. 


15 DCG WRITEON( BLANK) 5 


7 





BRAC AE ASHE HK BEERS AEE OR I IE AK Oe Se OK Ae A ee eR pO Oe Oe OK ae Mays i ae AE SE RE aE OK as a EE OK 


COMMENT 


MAIN PROGRAM BEGINS HERE. 
ME HS Oe BE OK Pe A 2 RE OC Se IK OR RK OR ICE IK OR OK aK OR a Ka aK a aK OK os ake ake oak he ak aE g 


UNTIL RWN DO 


DO 


WweEOQgp! 


i 
r 


en mee 
-_ (v) 
ad — 
=) emenenly 
QL me em on eee 
a ~¥eE 
aa ge Pe 


=~) ©) 
Qo a 
CO ne 

ome {) ey 
WO rea 
wae ee } oe 
ey Hy, or 
met UD) 
= = 

oe = 
—— rt om, 
QO ee 
re 2m 
It DWN 
WU 

TO ea 


ww <I 0[OO 
A le YRS | (Paalgat 


SLL ” tt Wat Odo rae 
COC Us oe OI] <I 


bom} 


FOR 


OU WW 


? 


LINE ; 
OUTPUT THEN 


Capos * 
INE:= 
F INPUT = 
EGIN 


OJ-4 


3 
9 


15 DO WRITEON( BLANK) 


“oe 
ee || m4 ew 
wm 8 -—— 
pe LU LW 
wMNoS 
CO. a 
be UO) et 


J (fee 
wer Ll oe C) 
LL) bent mw LLY 
rt bp LD 
Cz OY = 


SS Lb. SU 


EESE 


COh-F- i C. on 
Diet ee EOD 
UW OS OL Cote a 
CSS awe 
LJ 
ke 
“4 
Ce 


ENO$ 


END. 
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